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- CSPS$WAIT does not return status! What if LIBSGET_VM fails? 


MODULE CSP 
(IDENT = cvusTen’s 
»MAIN ChusTee ERVER 
“ LANGUAGE BLISS32) 
ADDRESSING_MODE (EXTERNAL=GENERAL) 
= 
BEGIN 


TITLE ‘Cluster Server Process - Main Routine’ 
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FACILITY: Cluster Server Process 

i ABSTRACT: Process context for Seereteet ong the actions of cluster 
servers and event logging in a VAXcluster. 

AUTHOR: Paul R. Beck 

DATE: 03-MAR-1983 Last Edit: 24-AUG-1983 10:32 

REVISION HISTORY: 

: v03-010 ADE0003 Alan D. Eldrid ° 4 

: Cleaned up some error paths. © CSPSGL° cur ™X EP 
of CLX where ngage a: e. 

‘ v03-009 RSHO125 Scott Henne 22-Mar-1984 
Remove call to cRPSagORUA” INIT. 

v03-008 apeoode Alan Eldridge 28-Feb-1983 


6 
Change name of cSpSauonun to C ePSQUORUM_ INIT. Change name 
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CSP Cluster Server Process - Main Routine 18-se Sep-1 2:13:39 VAX-11 Bliss-32 V4.0-742 C 
yo4-000 ~300 138% 9}: 17: Hs DISKSVMSMASTER: CSYSLOA.SRCICSP.B32;1 ree as ve 
: 28 28 } H of CSPSSOPCOM to CSPSTELL_OPCOM. 

: 60 60 1 i v03-007 ADEQOOT Alan D. Eldridge 1=Dec-1983 

>; 61 1! Use the ACKMSG service o the tonne tion manager instead 

; 6 °¢ : of DECnet for {ateronode communication. 

: 64 O84 1 i V03-006 PRBO248 aul Beck 8-Sep-1983 

; 0? 22 ! Fix problem with. the way CSP waits for DECnet availability. 
: € 069 1 i V03-005 RSH0060 Sco 24-AUG-1983 

; oe O89 } } Add call to CSPSauORUR® pid initialization. 

: 70 oF 1 i V03-004 pRe022 6 19-AUG-1983 18: 48 
ens r) eS story up bernet chlaet ae sopnesrennuesy from the rest of the 
3 if Berg 1! initialization, - the scheduler can be running before 
Ba: 0075 1! DECnet has started. me remove some excess baggage which 
s £6 0074 1! would ony - needed if bECnet were the permanent mechanism 
: a Ont? ! } instead of just a folding action. 

ee 9077 1 i V03-003 PRB0226 aul Beck 9-JUL-1983 16:39 

; 0078 1! Get requests “ny CLUBSL CSPFL, and allow for nonpaged pool 
3 4 st 4 : (system addresses) therein. Get CSPDEF from LIBS. 

; 81 0081 1! V03-002 PRBO214 aul Bec 24=JUN-1983 14:34 
: ; bo8s : Change SRC$: CSPDEF to CGAL IBS: CSPDEF 

: 84 0084 1! v03-001 PRBO200 aul Bec 6-JUN-1983 21:05 

3 $2 4 $4 : Change CTX$ Rs to et ys to prevent conflict with RCP. 


H 9 
CSP Cluster Server Process - Main Routine 16-$ sep -1984 01:13:39 VAX-11 Bliss-32 
yo4-000 : : bak ahs ri EE eS et RS 
3 1! 
3 i i } } External References: 
> 91 .— 
3 38 91 1 
; 9 1 REQUIRE 
3 94 1 LIBS:CSPDEF.R32° ; !' CSP common definitions 
; 95 1 LIBRARY 
; %6 *SYSSLIBRARY:LIB' ; 
: 101 1 SWITCHES LIST (SOURCE) ; 
i : 3 1 
: 1 S$ 1 MACRO 
i 3% 1 t 
5 19¢ 2 ! Define offsets for lock_status. 
: 10 3 1 LKSBSW_STATUS = 0,0,16,0 %, ' completion status 
: 108 00 1 LKSBSW_ RESERVED = 2,0,16,0 %, i 
; 109 4 1 LKSBSL-LKID = 4,0, i, ' Lock identification 
: 110 : 1 LK SBSABL VALBLK a 8. 9 6 x: i value bloc 
: 13) 8 8 : LKSBSL_VALBLK_KEY = 8,0, 2.0%; ! storage cell for random key 
Sn Se 
: 115 1! Linkages used 
3 116 08 1 i 
te 0309 1 LINKAGE 
: 118 0310 1 NO_REGISTERS = CALL: NOPRE SERVE (0,1,2,3-4,5-6,7,8,9,10,11), 
: 119 0311 1 JS6_ = JSB (REGISTER =¢) 
: 120 O31¢ 1 JSB-12 = JSB (REGISTER=1,REGISTER=2), 
: 121 31 1 JSB~LINKAGE = JSB, 
; 1 ¢ 0 14 LINRDEANONPAGED = JSB (REGISTER=0): NOPRESERVE(0.1,2.3) ; 
; 134 ' 1g 1 BUILTIN 
: 125 17 1 INSQUE, 
> 126 0318 1 REMQUE , 
: 127 O319 1 CALLG 
: 128 0320 1 TESTBITCC, 
: 129 3 <9 TESTBITCS, 
> 1 3 1 TESTBITSC. 
> 131 323 1 TESTBITSS ; 
; 132 324 1 


| % 
Cluster Server Process - Main Routine 1b-sep-1 VAX-11 Bliss 


voe-000 


: 1 5 1! 

$ ! 5 § ! External References: 
% 1 EXTERNA ROUTINE 
-o% 1 LIB FRE VM, 

: 1 1 LIBSGE 0M, 

: 140 1 LIBSGET EF 

> 141 1 EXE SDEARONPAGED 
; 148 1 XESCSP_COMMAN 
> 14 1 CSPS$ CACL ACTION 
+ 144 5 1 CSPSSWA 

3 145 1 CSPSSCREATE CTX 
; 146 1 CSPSSDELETE CTX 
: 14 § 1 CSPSS$SAVE STACK 
> 148 1 CSPSSRESUME 

: 13 an 

3; 151 1 ! Forward References: 
7% : 1 i 

% 4 1 FORWARD ROUTINE 

: 154 5 1 EXIT_HANDLER 

> 155 6 1 KERNEL_INIT, 

; 136 1 KERNEL ~ CLEANUP 
: 15 8 1 SCHEDULE 

: 158 1 REMQUE CSD 

: 159 50 1 ANONPAG 

: 160 31 1 CSPSTELL_OPCOM, 
: 161 : 1 RESUME TAREAD, 
3 162 0353 1 NEW_REQUE 

: 16 54 1 REPCY, 

> 164 55 i KERNEL_ENQW, 

: 18 se ee “Vet 

; 189 8 58 1 


wEeen8bS Ph Fiey pee Rble teat fon eacacsp.032:1°2% «34 


ge 4 


' Free yietupt memory 


' Get v ries) memory 
! Get event lag 
L IEXDE ANONPASED ! deallocated nonpaged poe) 
JSB_12, , jeeye commands te oadable CSP code 
JSB_2, ' act on Routine dispatcher 
' Wait for completion AST 
: JSB_LINKAGE, ! Create new context block 
: JSB_LLINKAGE, ! Delete current context block 
: JSB_LINKAGE, ! Save current stack in context block 
: NOVALUE; ! Internal completion AST completion 
: NOVALUE, Exit handler 


kernel mode initialization 
kernel mode exit handler cleanup 


Get local request from CLUB, if ony 
Kernel routine to call EXESDEANONPAGED 
Report error to JPCOM 

sume execution of thread 


1 
i 
: NOVALUE 
: NO_REGISTERS, Scheduler for multithreading 
i 
i 


! Re 
: JSB_LINKAGE NOVALUE ! Process new client request 


| Tell loadable Exec code to reply 
' S$ENQW call from kernel mode 
! Report bug 
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CSP Cluster Server Process - Main Routine 1b-5e Sep-1984 01:13:39 VAX-11 Bliss-32 V4.0-742 5 
yo4-000 seen She Shi Fiey | NeeebbwGAASteRccetsCon eecacsp.e32;1° 2% ca3 
‘Ss 1! 

: 196 1 Fixed storage 

; 1% 1 GLOBAL 

em 1 CSPS6L_BA pase FP: LONG, ' save base FP for ae 

: 174 1 : LONG ' addr of CLUBSGL_CSPFL queu 

s 175 1 CSPScd7 “RESUME: : VECTOR R C2,LONG) ' queue of scheduled context “blocks 
: 176 1 INITIAL (€SP$GQ_RESUME 

: \f : CSP$GQ- RESUME 

: 139 1 CSP$GQ_WAIT : VECTOR C LONG ! queue of suspended context blocks 
: 1 9 1 INITIAL (€SP$GQ_WAIT 

: : 5 : gOSPS60_ WAIT 

; } : 78 : CSP$GL_CURCTX : REF BLOCK C.BYTE] ; ! Current context block 

: 185 75 1 OWN 

e ¥ 6 1 CSP$Q_CLX_CSD: VECTOR C2,LONG) ! queue of free CLX/CSD blocks 
ZT | ITA CES ALE 

: 189 ms 1 ™ 

: 190 $} i EXIT_REAS LONG, ! reason returned to exit handler 

; «6191 1 #7 EXIT~ HAN LER BLOCK 

3 136 ; 1 : VECTOR (C4,LONG) ! define exit handler 

; 19 1 INITIAL (6,EXIT_HANDLER 

3 133 : ! g  EXIT_REA 

: 196 86 1 LOCK_STATUS : BLOCK 4 Byte), ! Lock status block plus value block 
; 19 87 1 LOCK-BUFFER : VECTOR We 4 " ' text of lock resource name 

; 198 +4 1 L E : VECTOR ONG : syerstng descriptor for lock_buffer 
: 199 1 INITIAL (6 LOCK_BUFFER) 

; 200 90 1 LOCK_NAME_DESC: VECTOR (C2 FONG)” { initial descriptor for lock_buffer 
3 201 91 1 INITIAL (31,LOCK -BUFFER), 

3 4 4 1 STARTUP_TIME VECTOR Fe.LOnad, systen time for yolue block 

; 0 9 1 BASE_1058 : VECTO ,LONGJ, i 10SB for CSP‘ 

; Be Be : BASE_EFN : BYTE ; i allocated auant tlag for use by CSP 
; 1 

: $09 7 1 

; 4 4 ' Macro to issue call with arguments from kernel mode. 

: 10 m 0400 MACRO _KRNL_CALL (K_ROUTINE) = 

: ig re § 1 EXTERNAL ROUTINE SYSSCMKRNL : ADDRESSING_MODE (ABSOLUTE) ; 

: 13 " 4 : BUILTIN SP; 

: 215 M0405 1 SYSSCMKRNL (K_ROUTINE , .SP , ZLENGTH - 1 

: 1 i 1 ZIF ZLENGTH GTR 1 ZTHEN , ZREMAINING %F1) 

3 ; ! ENDZ ; 

F 13 MACRO ELSEIF = ELSE IF 2; 

: A 11 1 ROUT INE -FLUSH_LISTING : NOVALUE = ' Force output to .LIS file during 

3 é 12 1 RETURN ' compile 


-TITLE CSP Cluster Server Process - Main Routine 


« 3 
CSP Cluster Server Process - Main Routine e 4 01:13:39 VAX-11 Bliss-32 V4.0-742 
yo4-000 12: ee 1382 9}: 13: 8 DISKSVMSMASTER: CSYSLOA.SRCICSP.B32;1 me 
IDENT \V04-000\ 
-PSECT SOWNS,NOEXE,2 
00000000* 00000000" 00000 CSP$Q_CLX_CSD: 
ADDRESS CSPSQ_CLX_CSD, CSP$Q_CLX_CSD ; 
00008 EXIT_ -REASON: | 4 
00000000 0000c EXIT_HANOLER BLOCK: 
a0098008 “e -ADDRESS EXIT_HANDLER 
1 1 eLONG 1 
0° Bie * ADDRESS EXIT_REASON 


C LOCK STATUS: 


=o 


.BLKB 24 

00034 LOCK_BUFFER: 

-BLKB 31 

00053 “BLKB 
00000000 54 LOCK NAME: ‘ 
00000000" 00058 ADDRESS LOCK_BUFFER : 
0000001F 0005C LOCK_NAME E DESC: 
90000000' 90060 “ADDRESS LOCK_BUFFER : 

0064 STARTUP_ TIME: 8 

0006C BASE_10SB: : : 

00074 BASE_EFN: 


.PSECT $GLOBAL$,NOEXE,2 
00000 CSP$GL_BASE_FP:: 
-BLRB 
00004 CSPS$GL SPQ: 
00000090" 00000000" 00008 CSP$GQ_RESUME : 


“ADDRESS CSP$GQ_RESUME, CSP$GQ_RESUME : 
00000000" 00000000' 00010 CSP$GQ_WAIT:: 

. ADDRESS CSP$GQ_WAIT, CSP$GQ_WAIT : 

00018 CSPSGL_CURCTX: : 

.BLKB 4 

.EXTRN LIBSFREE_VM, LIBS 

-EXTRN LIBSGET_EF, EX +e SDEANONPAGED 

-EXTRN EXESCSP~ COMMAND 

-EXTRN CSPSS$CACL_ACTION 

sEXTRN CSPSSWAIT, CSPSSCREATE_CTX 

EXTRN CSPSSDELETE. maf: 

-EXTRN CSPSSSAVE_STACK 

-EXTRN CSPSSRESUME 


-PSECT SCODES,NOWRT,2 


0000 00000 FLUSH_LISTING: 
-WORD Save nothing 


CSP Cluster Server Process - Main Routin 1b-5e Sep-1 13:39 0-742 7 
yo4-000 ‘i soe tg gern aig 90pm 1 8Be 94:13:83 CSYSLOA.SRCICSP.B32:1 9 (45 


04 00002 RET 3 0412 
; Routine Size: 3 bytes, Routine Base: $CODE$ + 0000 


32 
R: 
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; 223 0413 1 
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742 
Sep- A.S 


OA. Page <8 


<o 


RCICSP.B32;1 
ROUTINE CLUSTER_SERVER: NOVALUE = 

BEGIN 

LOCAL 


STATUS, ! All-purpose completion status 
CLX : REF BLOCK C,BYTE) ; ! Ptr fo ae block 


Bt 


The maximum number of requests and the maximum CSD size for each 
request are each fixed values. Therefore, allocate and queue one 
CSD per request. 
incr 1 FROM 1 TO CSPSK_MAX_FLWCTL 
= (CLX = CSPSSCREATE_CTX ()) EQL 0 
RETURN (SS$_INSFMEM) 
IF (STATUS = LIBSGET_VM (ZREF (CSPSK_MAX_CSDLNG), CLX CCLX$A_PO_CSD])) 
INSQUE (.CLX, .CSP$Q_CLX_CSD) 


RETURN (.STATUS) ; 


SPELEE 
Sek ek ek ek ak ak ek ee ee ee ee ee ee ee ee ee ee ee 


Perform kernel-mode initialization as needed. 
IF NOT KRNL_CALL (KERNEL_INIT) 
THEN 


OM 
"ZCSP-E-NOCLUSTER, Cluster Server Process exiting: no cluster’) ; 
E = SS$_ABORT) ; 


PPA & - 
DONAMNE WR O0ONO 
PRERRR RR RRR RRR RR 


Te Et a a Et et et et et 
uM 


Grab an event flag 
F NOT (STATUS = LIBSGET_EF (BASE_EFN) ) THEN RETURN .STATUS ; 


' 
i 
: 
I 


AAO 
wn 


Declare an exit handler to deal with emergencies. In particular, it should 
empty the queue CLUBSGL_CSPFL and restore the blocks to nonpaged pool. 


4 NOT (STATUS = SDCLEXH (DESBLK = EXIT_HANDLER_BLOCK)) 
RETURN .STATUS ; 
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CSP Cluster Server Process = Main Routine 
voe-000 


oPSECT 
45 54 53 55 4C 43 4F 4E ¢ 2D 9 53 43 ¢3 0000 P.AAB: .ASCII 
7% 72 65 53 20 ie: 65 74 75 $¢ 4 $ ¢ OOOF 
73 73 65 63 6F 72 50 001 
6C 62 20 6F 6E 20 3A 67 6E 69 74 69 § 2 00 ASCII 
72 65 74 00 
OPS ObS Ba6 C P.AAA: .LONG 
00000000° 00040 


~EXTRN 
»EXTRN 


»PSECT 


5E 4 C2 0000 SUBL2 
5 1 0 9900 MOVL 
000000006 00 16 00008 1 JSB 
: ar 43 pot Bect 
10 A2 9F 90015 PUSHAB 
04 AE 1000 8F 3¢ 00016 MOVZWL 
04 AE ?F 0001C PUSHAB 
000000006 90 % f ote CALLS 
iY 4 BLBC 
0000" OF 2 Og 00 INSQUE 
D3 53 F 00 AOBLEQ 
Vat 09 Sushi 
0000v CF BP 9 PUSHAB 
000000006 Hi o3 FB 0 3 CALLS 
0000' CF fF 47 PUSHAB 
0000v CF } 4 i$ Sry 
1 FB CALLS 
senennnneiees: 0000" CF 9F ; 2$ PUSHAB 
000000006 : i 8 D CALLS 
18 4 7 BLBC 
0000° cr Fi i PUSHAB 
000000006 00 1 FB E CALLS 


9 
1enSep-1986 §$:17:51 


OFFC 00000 CLUSTER_SERVER: 
WORD 


VAX=11 BLi $23¢ 4.0-7 


3 ¢ 471 

3 47 ! 

: 7 ! Wait for a request. A request will arrive as an incoming connect 
3 5 47 ! reques » which is validated, followed by a buffer of data. This 
3 475 ! data is passed along to the server associated with the connect 

3 4i8 } request. 

: 289 47 WHILE 1 DO SCHEDULE () ; 

; 290 138 END ; 


S$PLITS,NOWRT ,NOEXE,2 


\ZCSP-E-NOCLUSTER, Cluster Server Process\ 


\ exiting: no cluster\ 
17694780 


«ADDRESS P.AAB 


SYSSCMKRNL, SYSSEXIT 
SYSSDCLEXH 


SCODES ,NOWRT,2 

Save R2.R3.R4,R5,R6,R7/RB-RI-RIO-R11 
“i, 1 

CSPSSCREATE_CTX 

RO, CLX 

) 


4(SP) 
IBSGET_VM 
ATUS 


vom 
<e=~-Cureor O° 
n~- - x 


OO AOSV LORS 


Rz-UDRsL&2B— fF 


4 
. 9¢5PS6_CLX_CSD 


IT 
SCMKRNL 


#1, CSPSTELL_OPCOM 
#1 Sypeextt 
#1, CIBSGET_EF 

AT 


TUS 
EXIT HANDLER 
, SYS$D 


BLOCK 
CLERH 


$ Vv 42 
DISKSVMSMASTER:CSYSLOA.SRCICSP.B32;1 
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er Server Process - Main Routine 18-Sep-19 4 94:13:39 VAX-11 Bliss-32 V4.0-742 Page 11 
ULE = schedule new requests, resume suspen 14-Sep-1984 13:17:51 DISKSVMSMASTER: CSYSLOA.SRCICSP.832;1 (6) 


1 ZSBITL "SCHEDULE = schedule new requests, resume suspended threads’ 
OUTINE SCHEDULE: NO_REGISTERS = 


- 
+ 


SCHEDULE is the thread scheduler. It hibernates when there is nothing to do. 
When wakened, it removes items from one of the following queues: 


1. New Requests = containing buffers which are sent off to the 
appropriate servers. 
2. Thread Resumptions = containing context blocks to be resumed. 


It continues to service these queues until both are empty, then 
hibernates once more. 


CALLING SEQUENCE: 
CALL 


BERBER R RRR PRPS OK 


SPPPRERERERRERRREEE Yao 


<pentag PARAMETERS: 


one. 


WO ODONOUNE WN" OOONOUSwn— Mu 


COMPLETION CODES: 
None. SCHEDULE runs ad nauseum. 


CSD : REF BLOCK C,BYTE), ! new local request 
STATUS ; 
BUILTIN FP ; 


i Save the frame pointer, enabling the scheduler to be reentered from 
the context save routines. 


CSP$GL_BASE_FP = .FP ; 
1 


i Try for something to do, and hibernate if there's nothing. 
If a thread is active (€SP$GL_CURCTX non-zero) then there's a bug. 


WHILE .CSPS$GL_CURCTX EQL 0 
IF NOT REMQUE (.CSP$GQ_RESUME, CSPSGL_CURCTX) THEN 


OY ETO + tt ty tt et DAE Dee Ot tat tt te tery xc 


Resume a suspended thread. Context block has been placed in the 
grant queue by an AST. 


ee Note that rages THREAD does not return in-line ** 
** the scheduler will be reentered from the top hel 


DOOCCCOOCOCOCOCOODOSCOOOOCOCOOOOoOoOoOO 


PUP PUPP IITA 


TESTBITCC (CSPSGL_CURCTX CCLXSV_QUEUED]) 
: CSPS$SCRASH S559 MOPOLVSTES + 16) 


E 
SE RESUME _THREAD 


VERO DONA UE WN (“OOO NAULS WN —“OOOnNOu 


ELSE 
If we have a free process space CSD then service a new request 


ROPOPIPIPOPOPIPOPOPOPONIPIPPIPNIPOPUPYINIPYPIPIPIPIPINIPININNYDY a tt tt tt et 
o ~-o 
om 
oq 
> 
ra 


f 
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v04-000 SCHEDULE = schedule new requests, resume suspen 12-80 8=1 he Oh: 13:8 DISKSVMSMASTER: CSYSLOA.SRCICSP.B832;1 . (6) 
H 0 ; IF KRNL_CALL (REMQUE_CSD) THEN 
$ 1 Z NEW_REQUEST () 
3 § 2 SHIBER ; 
; 5 4 CSPSSCRASH (SS$_BADPARAM) ; 
3 $ 4 RETURN 0 ; 
3 45 3 
-EXTRN SYSSHIBER 
0000 00000 SCHEDULE: 
«WORD Save nothin 3 Oseg 
0000" CF 5D D 000 MOVL FP, CSP$GL_BASE_FP 3; 051 
0000' cf p 9007 1$: Ist SPSGL_CURCTX + 0521 
0000° CF 0000° +4 20D pea @CSP$GQ_RESUME, CSPSGL_CURCTX : 0523 
50 0000" CF 00 O06 MOVL Esse cuncts RO 3; 0531 
0c 0B AO 90 gS 0018 BBSC #0, 11TRO), 2$ ; 
7E 2810 8F 3¢ 000 9 MOVZwL #10256, -(SP) > 0532 
0000v CF 01 FB 09 CALLS #1, CSPS$CRASH : 
DB 11 OO02A BRB 3 
0000v CF 00 FB 8 C 28 CALLS #0, RESUME_THREAD 3 0533 
be 11 00031 BRA : 0531 
E 04 00033 3$ CLRL -(SP) ; 0538 
5E 4 ai 3 PUSHL P 3 
0000vV CF F 0 PUSHAB tee CSD 3 
00000000G 9F 03 FB 000 CALLS #3, @#SYSSCMKRNL 3 
05 50 34 004 BLBC . ; 
0000vV 30 0004 BSBW NEW_REQUEST 3; 0539 
BD 11 00048 BRS r 
000000006 00 00 FB QO04A 4$: CALLS #0, SYSSHIBER 3; 0540 
B4 11 00051 BRB 1$ : 0523 
14 OD ith 5$: PUSHL #20 3; 0543 
0000V CF 9 FB 0005 CALLS #1, CSPSSCRASH : 
0 04 OO0SA CLRL RO > 0544 
04 0005C RET ; 0545 


3; Routine Size: 93 bytes, Routine Base: S$CODE$S + 0086 


s 3558 0546 1 


Be Se Se Ge Se Se Ge Ge Oe Oe Se Fe Oe Se FH 6 Ss BH Se oe FHSS Se Oe Oe Se Se Se Oe Se SOs HS Ss Se ee 


SREGN LS SONAR WN SOOO 
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NEW_REQUEST = process a new request 1 ~Sep-19 4 et DISKSVMSMASTER: CSYSLOA. SRCICSP.832;1 te FH 
47 1 ZSBTTL. "NEW_REQUEST - process a new request’ : 
48] ROUTINE NEUIREQUEST : BSB LINKAGE NOVALUE = ; 
1 i : 
} : Dispatch a new execution thread . : 
1 i ; 
4 1! CALLING SEQUENCE: F 
5 1 i JSB ; 
5 5 1 | FORMAL PARAMETERS: : 
: 4 } None : 
560 1 i-- : 
561 BEGIN 3 
206 LOCAL 3 
056 CSD : REF BLOCK C,BYTEJ, ' Context block ; 
peed STATUS ; ; 
6208 CSD = .CSPSGL_CURCTX CCLXS$A_PO_CSD) ; ! Get the PO space CSD : 
056 ' ; 
Mas: ! Relocate pointers in CSD, dispatch to action routine for this client, 3 
B20 } respond to EXESCSP_COMMAND when done. : 
b2f¢ CSD CSDSL_SENDOFF) = .CSD PoSDSL.semoore + .CSD é : 
Bes7 CSD CCSDSL_RECVOFFJ = .CSD CCSDSL_RECVOFFJ + .CSD ; ‘ 
0575 STATUS = CSPSSCALL_ACTION (.CSD) ; 3 
0377 KRNL_CALL (REPLY) ; 3 
0378 INSQUE (.CSPSGL_CURCTX, CSP$Q_CLX_CSD) ; : 
280 CSPSGL_CURCTX = 0 ; 3 
0581 ; 
b286 RETURN 3 
5 END ; : 
52 DD 00000 NEW_REQUEST: F 
PUSHL R2 $ 0308 : 
: at | | CF OD Os MOVL FoF SSt CURT. RO ; 0566 : 
1 AO OD MOVL 16(RO), CSD 3 3 
16 A C ADDL2 CSD, 6 (CSD) F 57 : 
1E C F ADDL CSD (CSD) g 7 3 
000000006 1 13 JSB CSP$$CALL_ACTION : 057 : 
—E OD 1 CLRL (SP) 3; 0577 $ 
5E 00 18 PUSHL SP $ 3 
0000V fF F 10 PUSH. agrty : é 
000090006 oF 3 «FB 1 ALLS #3, @#SYSSCMKRNL 3 3 
CF 4 DF OE 8 INSQUE acSP$cL CURCTX, CSP$Q_CLX_CSD F 228 é 
00° ff D4 F CLRL grees, CURCTX 3 9 

4 BA 3 pep” #*M<R2S : 5 
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§84-000 NEw REQUEST = process a new request 18: =Sep- 1382 94:13:87 DISK$V neh bagi ER: CSYSLOA.SRCICSP.832; e" ve 
; Routine Size: 54 bytes, Routine Base: S$CODES + 00E3 


: 397 0584 1 


vO4-000 


Be Se Oe Be Ge Se Se Se Be Ss Se Se Se Be Se Gs Se Ge Ge Se Fe Se Ge BH Ge FHS Ss Fe Os Oe FE Se Se Se Se Oe Ss Se Se SESE SESS O55 Os Os SF SH Sees SESH Sees es 


fw 
Mororrorsrorrn 
BISAEUNSSSBVONR UV OOBNA AL WVHODRIEAR MOOD 


Poy oy ot oF oF ot ot ot ot af af at of a at at a aM Nnnnnenne eee 


439 


SLIPS IS SEPT P SEPT P SEPSIS PEER AAARARRARRAPRAA RH 


vc 


oO 


SRLS ARV OOe LO 


RPP POPOPIPOPPOPIPOPOPIPONINIPIDI WAI AAI AIO POPONOPUPONIPUPUNUNININUNY 2 


— —) ss — — a te 


MEW OOO NAUE WN OOONOULS Wr Oo 


NO 


MET 


re 
<- 


fr) 
| ie) 
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Call loadable Exec code te finish block Je-gep-198e SSe1F:e) | DhRkSUMGAAS FER sce scoa Secacsp.as2;1°°% cds 
ZSBITL. ‘REPLY = Call loadable Exec code to finish block transfer’ 
r+ te REPLY = 


Client is done. Copy the response (if any) and give then SO space CSD back 
to the loadable Exec code. 


i CALLING SEQUENCE: 

CALL in kernel mode at IPL 0 
FORMAL PARAMETERS: 

None 


I 
D SO_CSD = .CSPSGL_ CURCTX x PEL HSA 50 680) : BLOCK (,BYTEJ, 
PO[CSD = .CSPSGLUCURCTX CCLX$A_PO_CSD] : BLOCK C,BYTE 


LOCAL SIZE, COMMAND ; 
SIZE = .PO_CSD CCSDSL_RECVLEN] ; 


SO_CSD CCSDSL_RECVOFF] contains a real offset, but PO_CSD CCSDSL_RECVOFF) 
haS been converted to a pointer. 


Determine the proper response code and move whatever data needs moving. 


eet et ee ee ee 


~y 


E + .SO_CSD CCSDSL_RECVOFF]) GTRU .SO_CSD CCSD$W_SIZE] THEN 


(.$12 
BEGIN 
SIZE = wb -. Egspsu_ SIZE] - .SO_CSD CCSDSL_RECVOFF) ; 
COMMAND = CSP$_BA 
END 
ELSEIF .PO ”. ccsbst RECVLEN) NEQ 0 THEN 
COMMAND = REPLY 
ELSE 
COMMAND = hg ; 


CHSMOVE (.SIZE 
eo CSD £30 DSL_RECV 


ee Already a pointer 
5 -S07€8D SDSECRECVOFFS + .S0_¢SD Ti.3 83 


Calculate pointer 
$ 

' 

Pass the CSD back to the loadable Exec CSD code and erase the CSD pointer 
i 

EXESCSP_COMMAND (.COMMAND, .CSPSGL_CURCTX CCLXS$A_SO_CSD]) ; 

CSPSGL_CURCTX CCLXS$A_SO_CSD) = 0 ; 


RETURN 1 ; 
END ; 


CSP Cluster Server Process - Main Routin -S$ep-1984 01:13:39 VAX-11 Bliss-32 V4.0-742 Pa 6 
04-000 REPLY ~ Call loadable Exec code to finish block 1b-bep-1944 MF ey Pe taleteasctterok Secacsp.032:1°°% «df 
OFF REPLY: .WORD Save R2,R3,R4,R5,R6,R7,RB,R9,R10,R11 7 05 
6 0000" CF 06 MOVL PS LCURCTX, R Rb : $254 
4 he 06 HOVE tR ); e] E ; 
53 p 1E al C¢ F ADDL3 (R1)- Site R3 : $608 
53 08 Al 1 00 D 4 CMP2v #0, #16, B(RI), R3 : 
D 1E OOOIA BGEQU ; 
08 Al 1 MOVZWL §8(R1), SIZE + 0618 
iE al C SUBL2 QcRi} SIZE ; 
D 4 MOVL #3, COMMAND + 0619 
dD 1 7 BRB 4 ; 0616 
1A Ag D 1$: TSTL 6(R2) : 062 
1 C BEQL ; 
57 3 D ‘ MOVL #5, COMMAND + 0623 
11 00 BRB : 
57 4 00 3 a: MOVL. #4, COMMAND ; 0625 
51 16 AI 61 cI $: ADDL cri), 30<R1) R1 + 0629 
61 1E 0 MOVE ‘ ZE. a30(R25, (R1) : 
0c Ag D 4 MOVL (R46), R2 > 0636 
57 D 44 MOVL ,R : 
000000006 00 18 47 JSB EXE * COMMAND : 
50 0000’ CF D 4 MOVL t3PseL Pruner, RO : 0638 
50 OF BS booe cet Oat RO : 0640 
be 0088 RET > 0641 


; Routine Size: 89 bytes, Routine Base: SCODES + 0119 


; 456 0642 1 


a SSSSSSSSSS9SS0 


PPV SIA ASUS AVI E> 
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RESUME THREAD = resume execution of suspended t 1ecseb-198e Sh:17.8) SKSVMSHASTERSCSYSLOA-SRCICSP.B32:1 2%" (9) 
4 ZSBTTL. ‘RESUME_THREAD = resume execution of suspended thread’ 
4 ROUTINE RESUME-THREAD = 


' Restore the context of a thread and resume its gnecut ton. The context 


r 
1 
1 
1 
an 
78 1! consists of the stack and registers. The top of the saved stack contains a 
649 1: call frame which points to the resume PC and contains tne thread's registers. 
9 : ; So by restoring the stack and eopeturn’ ‘ing, we resume the thread. 
6 : 1 § CALLING sed ENCE: 
6 7 : CAL rom SCHEDULE only!) 
5 1 1 FORMAL PARAMETERS: 
6 7 7 None 
6 1! 
38 1 ! COMPLETION CODES: 
2 ! : NA, RO is restored from its saved state. 
0661 1 i-- 
8066 BEGIN : 
4 3 REGISTER , 
665 save pe. » SAVE Rl, ! temp save registers RO,R1 3 
b656 STATOS ' completion status 
BUIL 


apr : 


: 


0 
1 
§ 
4 
5 


Thread resumption consists 2 simply Seeger tne the exact Breck as it exi 
for the suspended thread, By ge copy! ng it from the context block. Then azee. 
e 


1 

: tthe 
context block and restore he other re waters are restored by 

' 

' 


RETURN, which is logically a RETURN from CSPSSWAIT. 


SAVE_RO = .CSPSGL_CURCTX CCLXSL_RO 
SAVE_R1 = .CSPSGL_CURCTX CCLXSL=R1 


7 = “ESPOGL BASE _FP “csPseu_cunct CCLXSL_STACKSIZE) ; 
s ° 


CHSMOVE (.CSPSGL_CURCTX CCLXSL_STACKSIZE], .CSPSGL_CURCTX CCLXSA_STACK], .FP) ; 


i Bat yecote the saved stack, then restore the saved context by 
mply returning to it. 


if TESTBITCC ccareet. CURCTX CCLXSV_LOCAL STA sty) THEN 
LIBSFREE_VM (CSPSGL_CURCTX CCLXSL_STACKS! CSPS$GL_CURCTX CCLXSA_STACK]) ; 


RO = .SAVE_RO ; 
R1 = .SAVE-R1 ; 


RETURN (.RO) ; ! This restores reg's and resumes thread 


CSP Cluster Server Process = Main Routine 18-50 Sep-1984 9 VAX-11 Bliss-32 V4.0-7 
¥o4-000 Res UME_THREAD = resume execution of suspended t 1 Haat 7 9: 13 3} DISKSVMSMASTER: CSYSLOA 
O1FC 00000 RESUME_THREAD: 
= WORD Seve R2,R3,R4,R5,R6,R7,RB 
ne a sa i eta 
SE 0000" cr Ab 3 sual 3 26 (RB) , SAVE fo _BASE_FP, SP 
6D 3 88 38 OA 5 1 MOVC3 : (RB) a0(Rg), (FP) 
0D Ag 0 gS 1 BBSC #3, 11(R8), 1$ 
Hou mins S28 
000000006 9° 9 FB 6 CALLS 2. LIB BSFREE. VM 
0 6 7D 0002D 1$: mMOva SAVE_RO 
04 000 RET 


; Routine Size: 49 bytes, Routine Base: S$CODE$ + 0172 


> 514 0699 1 


42 
« SRCICSP.B32; i? 


18 
(9) 


33 
g 


—> + -4 


MEUM —OOCONOAULS WN —"O0OONO 


Routine Size: 


543 


° 


ao 

“ve 

$% 
ef? 


SN 
PONONMOPONONOND 2 2 

AUF "OVO VNOUE UR! "OV Owour 

—PRIPINPIPIPYIARY) 0 et tt 0 tt 


ne mw twa lololololololqoio) 


o. 


Server Process = Main Routine 4 01:13:39 VAX-11 Bliss-32 V4.0- 
THREAD = resume execution of suspended t 1 1§-ep-1984 9}: 13: 3} DISKSVMSMASTER: CSYSLOA 
ZSBTTL ‘"KERNEL_ENQW = SENQW call from kernel mode' 
GLOBAL ROUTINE KERNEL_ENQW = 
i 
Issues SENQW call from kernel mode. 
! CALLING SEQUENCE: 
CALL 
! FORMAL PARAMETERS: 
! Call parameters identical to those for SENQW; 
the argument List is simply passed on. 
} COMPLETION CODES 
As from SENQW, plus SSS$_NOPRIV if process Lacks CMKRNL. 
lee 
BEGIN 
EXTERNAL ROUTINE SYSSENQW ; 
BUILTIN AP ; 
'RETURN SCHED. S ROUTIN = SYSSENQW, ARGLST = .AP ) ; 
RETURN CALLG (.AP, SYSSENQW) ; 
END ; 
-EXTRN SYSSENQW 
0000 00000 ENTRY KERNEL_ENQW, Save nothing 
000000006 00 6C fa 44 cate LLG (AP), SYSSENQW 


10 bytes, Routine Base: S$CODE$ + 01A3 


0727 1 


742 9 
OA-SRCICSP.B32:1 8 (103 


<- 
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yo4-000 CSPSTELL OPCOM = operator communications 30071382 94:13:84 DISKSVMSMASTER: CSYSLOA.SRCICSP.832;1 Page 499 
; *? q } ZSBTTL ‘CSPSTELL_OPCOM = operator communications’ 

; 23 730 1 GLOBAL ROUTINE CSPSTELL -OPCOM 

; 4 f 1 (MESSAGE : REF VECTOR [2,LONG]) = 

: 4 f ! i++ 

; v4 4 i Send indicated message to operator. 

; 736 1 ' CALLING SEQUENCE: 

: ¢ f $ ! CALL 

; 5 7 : 1 | FORMAL PARAMETERS: 

: oes ! Pl = Address of descriptor of message to send. 

: 559 742 1) COMPLETION CODES: 

Bo RL ee 

ee oe 

; 564 opee OP _BUF : BLOCK le E] Bayh fee for output 
; 265 748 PRESET ( GPcss “MS_TYPE] _ = OPC QsT 

; 566 74 OPC$B-MS cTARGEND = green NAS RCENFRL, 

; 44 750 fone ~mS_ RQSTID 

; 568 751 OP_DESC : VECTOR C2 Lone ! descriptor of op_buf 
; 569 Orde INITIAL (128,0P_BUF) ; 

: 3h orea 5 

; 276 0753 ; Copy the message into the message buffer. 

; ari $789 CHSMOVE (.MESSAGE COJ, .MESSAGE [1], OP_BUF COPCSL_MS_TEXT)) ; 
He MBE, 

3 2r ores Adjust the descriptor according to the size of the message 

: 579 O76 OP_ DESC CO] = .MESSAGE (OJ + (OP_BUF COPCSL_MS_TEXT] - OP_BUF) ; 

. orca 

3 286 0765 Send the message to the operator. Status of $SNDOPR is returned to caller. 
; 384 Ove? 5 RET URN SSNDOPR ( MSGBUF = OP_DESC ) ; 

; 585 0768 END ; 


»PSECT SOWNS,NOEXE,2 


0075 -BLKB 
01 3 00078 OP_BUF: .BYTE 1 
O# 0007A ‘Byte 0f2 
00000000 0007 “LON 
9 “BLKB 1 
608 iss F8 OP_DESC:.LONG 1 : 
000 OOFC “ADDRESS OP_BUF : 


-EXTRN SYSSSNDOPR 
-PSECT SCODES,NOWRT,2 


c<_m 
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vo4-000 CSPSTELL OPCOM = operator Communications 1 Het 1 9431338) DISKSVMSMASTER: CSYSLOA.SRCICSP.832;1 _ af) 
007 ENTRY CSPSTELL_OPCOM, Save R2,R3,R4,R5,R6 : 6739 
56 04 A B MOVL ESSA 3; 075 
000° CF 04 86 MOVC (RO) a4(R6) , OP_BUF+8 : 
000° CF 66 C1 ADDL #8, (R6), pest 3 O768 
E b4 1 CLRL =(8P) : 076 
0000' gf 1 PUSHAB DESC 3 
000000006 00 2 FB . 19 CALLS iss SYSSSNDOPR : 
04 20 RET 3; 0768 


; Routine Size: 33 bytes, Routine Base: SCUDE$S + O1AD 


; 586 0769 1 


emo 


3; Routine Size: 


-o 


=742 ° 
OA-SRCICSP.B32; 1) 29 «135 


Image exit handler; return excess items in CLUBSGL_CSPFL to nonpaged pool. 
Also report the problem. 


CALLING SEQUENCE: 
FORMAL PARAMETERS: 
COMPLETION CODES: 


SANNA 
> ee ee 


CoCcoce Co aD CD CDCD CD 


CSPSTELL_OPCOM ( ZASCID "CSP-E-EXIT, Cluster Server Process exiting’ ) ; 
KRNL_CALC ( KERNEL_CLEANUP ) ; 


RETURN 
END ; 


WN SO ODONOULSAR $OOONOUISWN"O -H 


COOOCCOOCOOOCOCOCOCOOOCOOOOOOOO Mo 


SN 


0OO00° 


-PSECT SPLITS,NOWRT ,NOEXE ,2 


6C 43 20 2C 54 49 58 45 45 2D 50 53 43 00044 P.AAD: .ASCII \CSP-E-EXIT, Cluster Server Process exiti\ ; 
72 50 20 $s 65 76 rs 65 8 $3 ie 65 74 3 00053 ' 3 ; 

69 74 69 78 65 73 73 65 63 00062 F 

00 00 67 6E 0006C ASCII \ng\<02 <0 : 

Q10E002A 00070 P.AAC: .LON 17694762 3 

00000000' 00074 ADDRESS P.AAD 3 

-PSECT S$CODES,NOWRT,2 
0000 00000 EXIT_HANDLER: 

-WORD Save nothing ; 0771 
0000" CF 9F 00002 PUSHAB P.AAC 3; 0789 

D5 AF ot fe 4 CALLS #1, CSPSTELL_OPCOM 3 
E D A CLRL 30s = (§P) : 0790 

5E pp 8 C PUSHL SP F 

0000V 65 F 00 PUSHAB CERNEL, CLEANUP : 

00000000G 9F 3 FB 0001 CALLS #35, a@#SYSSCMKRNL F 
04 0001 RET ; 0793 


612 


26 bytes, Routine Base: S$CODE$ + OICE 


0794 1 


AMNOOMOOOOOOAIOOIOOnrh«ae amr 


——4§O4 POUVM VUE} i U 
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(84-000 KERNEL. INIT eta) ak eS Se oe tt 
> 614 795 1 XSBTTL ‘KERNEL_INIT’ 
; 615 736 1 ROUTINE KERNEL_INIT = 
3 oig 7 1 
; 61 138 1 le4 
; 618 44 a 
3 o}? Sey : } Perform kernel mode initialization: 
; ° 1 a80¢ ! Initialize queue in CLUB structure, fill in CLUBSGL_CSPIPID. 
: 6 g Bate 1! CALLING SEQUENCE: 
H ? ¢ +4 5 i SCMKRNL ( KERNEL_INIT ) 
; 626 0807 1 ! FORMAL PARAMETERS: 
; 627 808 1! none 
; 628 0809 1! 
3; 629 0810 1 ! COMPLETION CODES: 
; 650 +e 77 
3 og) aig 1 le= 
3 6 g 081 § BEGIN 
3 65 0814 EXTERNAL 
; 634 0815 CLUSGL_CLUB : REF BLOCK C,BYTE), ! cluster block 
s 655 Hs SCHSGL_CURPCB 
: oes oie : REF BLOCK C,BYTE) ; ' current PCB. 
; 638 0819 IF .CLUSGL_CLUB NEQ 0 THEN 
; 639 0820 BEGIN 
; 640 0821 ' 
3 641 08 ¢ ! Init the queue 
g 26 082 ! 
3; 64 bB5e CSPSGL_CSPQ = 
> 644 0825 CLUSGL_CLUB CCLUBSL_CSPFL] = 
3; 645 +4 CLUSGL_CLUB CCLUBSL_CSPBLJ = 
; rk] 4 i CLUSGL_CLUB CCLUBSL_CSPFLJ : 
$ os 0839 CLUSGL_CLUB CCLUBSL_CSPIPID] = .SCHS$GL_CURPCB CPCBSL_PID) ; 
: 650 0831 RETURN 1 ; 
; 651 tt END 
3 oe6 083 ELSE 
s 65 0834 ! 
3; 654 0835 ' Wot in the cluster 
3; 655 0836 ! 
; 656 0837 RETURN 0 ; 
3; 657 0838 1 END; 


-EXTRN CLUSGL_CLUB, SCHSGL_CURPCB 
0000 00000 KERNEL_INIT: 
. WORD 


Save nothing : 0796 
51 000000006 90 00 Pye  eergget R1 ; 0819 
50 0088 he MOVAB 136(R1), RO ; 0827 
0 C1 D 1 MOVL RO, 140{R1) ; 
C1 D 1 MOVL RO, 136(R1) $ p86 
00° CF D 1A MOVL RO, CSP$GL_CSPQ : 0 


Cluster Server Process - Main Routine 16-50 Sep-1 13:39 VAX-11 Bliss-32 V4.0-742 . 
84-000 KERNEL. INIT. 2 arenes a ts ey ee AH eA B32:1 9918} 
50 000000006 ib F MOVL CHSGL_CURPCB, RO 3 0829 
0090 gi 98 ie 6 MOVL Bs (ROY; eeiRL : 
0 C MOVL #1, RO + 0837 
00 0 1$: CLRL =. RO ; 
04 00032 RET : 0838 


; Routine Size: 51 bytes, Routine Base: SCODE$ + O1E8 


: 658 0839 1 


3; Routine Size: 


689 


Cluster Perret Process - Main Routine 
KERNEL_CLEAN 
40 1 ZSBTTL. ‘KERNEL_CLEAN 
‘3 } ROUTINE KERNEL “ELEANUP : NOVALUE = 
45 1 !e4 
44 1! 
45 1 Perform kernel-mode exit handler stuff: 
re] ; it's clear the CSP has disappeared. 
rt 1 ! CALLING SEQUENCE: 
0849 1! 
0 3} ! FORMAL PARAMETERS: 
1 ! COMPLETION CODES: 
3§ 7 i 
54 1 !-- 
855 BEGIN 
Ba28 EXTERNAL 
+ tH4 CLUSGL_CLUB : REF BLOCK C,BYTE) ; 
0859 LOCAL 
0860 CSD ; 
0861 
Bag CLUSGL_CLUB CCLUBSL_CSPIPID) = 0 ; 
9h UNTIL REMQUE (.CLUSGL_CLUB CcLuBsiL _CSPFLJ, CSD) 
Oaee EXESCSP_COMMAND (CSP$_ABORT, .CSD) ; 
8 6 RETURN ; 
0868 1 END ; 
OFFC 00000 RERUEL CLE 
53 000000006 09 9E 00002 MOVAB 
50 63 00 00009 MOVL 
0090 C0 D4 830 CLRL 
50 63 00 00010 1$: MOVL 
52 0088 0 OF 0001 REMQUE 
1D 0001 BVS 
51 ; DO OOOTA MOVL 
000000006 0 1 BR) JSB 
€B 1 § BRB 
04 00025 2$: RET 
38 bytes, Routine Base: SCODE$ + 021B 


0869 1 


reset the CLUB so that 


Save Re R3,R4,R5,R6,R7,RB,R9,R10,R11 
etuset CLUB, R3 ° 


ruse CLUB, RO 
cLUSEL cL C$ 
2$ 

#2, R1 
FXESCSP_COMMAND 


42 
OA. SRCICSP.B32; i‘ 


29° (183 


me 
ce 
me 


COOOOOo IIIS SC 


ooo 


DOOOOCOCOCOOCOCOCOOOOCOOGOOOOOCOOOOOOO BO 


4 Sssss 
33333333 
anEwun— 
PROPOPOPIWNA EE BB BB EB BWW IIo) = 
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SSR R UN HOO NOME UNM OOD NOUP WMO 
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11 
r Server Process = Main Routine 16-56 -1984 :13:39 VAX-11 Bliss-32 V4.0-742 P C 
CSD 1 ~300n 138% Oh: 13:38 ISKSVMSMASTER: CSYSLOA.SRCICSP.832;1 age 488 Vi 


XSBTTL '"REMQUE_C 
ROUTINE REMQUE~C 


'e4 


SD 
SD 


Go to kernel mode and read an entry from the queve CLUBSGL_CSPFL in the 
ystem CLUB structure. If we get one, copy it to the CSD structure and 
deallocate the nonpaged pool. 


CALLING SEQUENCE: 
STATUS = REMQUE_CSD () 


FORMAL PARAMETERS: 
None 


IMPLICIT OUTPUTS: 
CSPSGL_CURCTX Address of CLX block if work was found 
0 if there's nothing to do 


COMPLETION CODES: 
= queve was empty (should not happen). 
1 = got an entry 


IN 
LOCAL oytt : INITIAL (0), 
SO_CSD : REF BLOCK C,BYTE) ; ! Nonpaged pool CSD ptr 


IF ..CSPS$GL_CSPQ EQL 0 THEN RETURN 0 ; ! Not in cluster yet 


IF NOT REMQUE (.CSPSQ_CLX_CSD, CSPSGL_CURCTX) 
THEN BEGIN 
UNTIL .QUIT 
O IF  REMQUE (..CSPSGL_CSPQ, SO_CSD) 
THEN QUIT = 1 
ELSE IF .SO_CSD Ccsp$B_TvPE NEQ DYNSC_CLU 
OR :SO~CSD CCSD$W7SIZE] GTRU CSPSR_MAX_CSDLNG 
THEN ERESCSP_COMMAND (CSP$_BADCSD,~.SO~CSD) 
ELSE BEGIN 
CSP$GL_CURCTX FCLuSA_s0 CSD] = .SO_CSD ; 
CSP$GL-CURCTX CCLX$B-FLAGS] = 0; 
CHSMOVE C$ £80 CCSOSW_SIZE) 
[CSPS$GL_CURCTX CCLX$A_PO_CSDJ 


RETURN 1; 
END ; 
INSQUE (.CSPSGL_CURCTX, CSP$Q_CLX_CSD) ; 


CSPSGL_CURCTX = 0 ; 
RETURNO ; 


V 


65 
1000 
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10 60 


0000° 


3; 745 0924 1 
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AO 


66 
50 


CF 


3; Routine Size: 99 bytes, Routine Base: 


CSP Cluster Server Process - Main Routi 
84-000 REMQUE._C8D hes 


0000° 
EC 
0000" 


60 


OA 
08 


000000006 


08 


00 


POPS" OWISMO Wom — NOono™"rvoow" 


SESS IODOMOFS OF MOOD NLOMDNG 


0 


SCODES + 0241 


pa19be 13:17:31 Dt 


OFFC 00000 REMQUE_CSD: 
WOR 


rm 


os 
ow 
oe 


——— "ODO0dOoO 
ONVMVIOO DOVWIMO O 
~m 
A 


ww 
wn 
oe 


Ooooooo Soooooooo 
SSSSssssssssoss 
WI & 
CONEMDNLSMO 
= 
bad 
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Ssss 
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Nou 
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Rom 


So 


X- “11 e =74 
SKSV Mea AST ERCSY sto : 


Picts bac x, Rb 
SPS$GL_CSPQ 
SPSU_CLX_CSD, CSPSGL_CURCTX 
sPécL PQ, RO 
(R $8. c§p 

, Quit 
(SO_CSD), #101 
SO_CSD), #4096 
8D. R2 
XESCSP_ COMMAND 


C Pscl Cyne RO 
§ > 12(ROS 


Th 
5i5 SD), (SO_CSD), @16(RO) 


MN BN SOW — BBW OC WB VNWVOOM 
WORM ROK" ROOC KHOKHOC VW 
~ 


ocsteet Cyne tn. CSP$Q_CLX_CSD 
Fae L_Cur 


OA.SRCICSP.B32:1 — 


R4,R5 ,.R6,R7,RB,RI,R10,R11 


[ 


CSP Cluster Server Process - Routin ne 18-5¢ “19 9 X-11 Bliss-32 V4.0-742 P 8 
yo4-000 DEANONPAGED = call EXESDEANONPAGED from kernel terkebetone Soi13283 SKSVMSMASTERSCSYSLOA, SRCICSP.B32:1 om (1ee 
; 747 925 1 ZSBTTL ‘DEANONPAGED = call EXESDEANONPAGED from kernel mode’ 

: i 2 § ! ROUTINE DEANONPAGED (BUFFER) = 

: 750 998 1 144 

s oi 9 74 

: § i : Call EXESDEANONPAGED from kernel mode 

: 754 9 g 1 | CALLING SEQUENCE: 

: 5 4 Z ! KRNL_CALL (DEANONPAGED, BUF) in Kernel mode 

: 7 5 935 1 | FORMAL PARAMETERS: 

; f 8 i } BUF = address of buffer to deallocate (SIZE field indicates how big) 

: 760 9 ; 1} COMPLETION CODES: 

3; 761 ‘) 1! 

3 16 940 1 !-- 

s 7 941 1 RETURN EXESDEANONPAGED ( .BUFFER ) ; 


OFFC 00000 socpmmenaataan 


0 04 aC 00 00002 hove BU 2 R 3 0941 
000000006 00 16 00006 JSB EXESDEANONPAGED : 
04 0000C RET : 


; Routine Size: 13 bytes, Routine Base: SCODE$S + 02A4 


; «764 0942 1 


H 11 
CoP 000 S\uster_ Server Process - Main Routine 12-800=1 382 941333? 


Dummy routine 
766 O3ce ! ZSBTTL ‘MUMBLE - Dummy routine’ 
45 1 GLOBAL ROUTINE MUMBLE = RETURN 1 ; 


ee gd 


Routine Size: 6 bytes, Routine Base: S$CODES + 0281 


769 mug 

770 947 1 

ae 35 

oe? 3! : ZSBTTL ‘CSPSSCRASH = Report bug’ 
275 0954 GLOBAL ROUTINE CSPSSCRASH (CODE) = 
77 0384 BEGIN 

HB EL me ome 

780 0989 END; . 


0000 000 

04 AC ODD B86 

000000006 01 F 0 
06 ac D sis 


Routine Size: 17 bytes, Routine Base: SCODE$ + 0287 


1 


7 58 1 
i fe | 
7 1 1 
785 2 0 


PSECT SUMMARY 


Name 
SGLOBAL$ 


Bytes 


Attributes 
28 NOVEC, WRT, RD ,NOEXE,NOSHR, 


-ENTRY 
MOVL 
RET 


LCL, 


i Save nothing 


CSPSSCRASH, Save nothing 
#1, SYSSEXIT 
COBE, RO 


REL, CON,NOPIC,ALIGN(2) 


; 0945 


11 
CSP Cluster Server Process - Main Routine 1b-5e 4 VAX-11 Bliss-32 V 
yoe-000 CSPSECRASH = Report bug 1 sat r 9}: 13: 3 DISKSVMSMASTER:CS 
¢? NOVEC. WRT, Rp »NOEX eof LCL, REL, CON,NOPIC,ALIGN(2) 
SCODES NOVECNOWRT, i *NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
SPLITS 1 NOVEC *NOWRT, M4 *NO XE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
: Library Statistics 
: wcecceocn Symbols eececece Pages Processing 
: File Total Loaded Percent Mapped Time 
: _$255$DUA28:CSYSLIBILIB.L32;1 18619 21 0 1000 00:01.5 


COMMAND QUALIFIERS 
BLISS/CHECK=(FIELD, INITIAL OPTIMIZE) /LIS=LIS$:CSP/OBJ=OBJ$:CSP MSRC$:CSP/UPDATE=(ENH$: CSP) 


786 9rgs 0 
Brae: 1 ob} + 404 data bytes 
Flapsed. Time: 247, 
Lines/CPU Min: 445 
Lexemes/CPU-Min: 2684 

1 Used: 118 pages 
Compilation Complete 


wr 
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